1 GOTO910
2 PRINT"x[169][141][169][141]X` [234][255][169][255][133][145]L4[234]x[169]1[141][169][234][141]X` 
3 [153]"xSTEPGINPUTSTOPSTEPINPUTONX` (null)(null)STEP(null)INPUTLISTLX(null)xSTEPUINPUTSTOPSTEP(null)INPUTONX`    
4 PRINT"xhhh[170]h[168]hhhhhhh[152]H[138]HX`    
5 [153]"hhhhhhh`  
6 PRINT"[160][255][200][132][251][169][216][133][252] [241][183][138][162][160][255][200][145][251][136][208][251][230][252][202][208][246]`   
7 [153]"NEWCLOSE(null)LEFT$>(null)ON(null)LET(null)(null)(null)(null)(null)(null)MID$(null)(null)`  
35 IFUW=0THENSYSUU,15
40 POKEUC,0:POKEUN,0:UR$="":UI$="":IFUL=0THENUL=39
45 GETUI$:IFUI$=""THEN45
50 UA=ASC(UI$):UR=LEN(UR$):IFUA=13ANDUR>0THENPOKEUC,1:PRINT" [157]";:GOTO75
55 IFUA=20THENON-(UR=0)GOTO45:UR$=LEFT$(UR$,UR-1):PRINT"[157]  [157][157]";:GOTO45
60 IFUR=ULTHEN45
65 GOSUB95:UR$=UR$+UI$:PRINTUI$;:GOTO45
75 FORUI=URTO1STEP-1:IFMID$(UR$,UI,1)=" "THENNEXT
80 UR$=LEFT$(UR$,UI):PRINT:RETURN
95 IFLEN(US$)=0THEN110
100 FORUI=1TOLEN(US$):IFUI$<>MID$(US$,UI,1)THENNEXT:UI$=""
105 RETURN
110 IFUA=46THENRETURN
115 IFUA=32ANDUR<>0THENRETURN
120 IFUA>47ANDUA<58THENRETURN
125 IFUA>64ANDUA<91THENRETURN
130 IFUA<193ORUA>218THENUI$="":RETURN
135 IFPEEK(UT)=UU%THENUI$=CHR$(UA-128)
140 RETURN
155 UZ=0:US$=UJ$:UG$=UK$:UT$=UL$:UP=UJ:UL=UK:PRINT"[147]";:POKEUY,6:POKEUX,6
160 POKEUT,UV%:POKE251,0:POKE252,UF:POKE253,0:POKE254,US/256:SYSUV:SYSUU,15
165 POKEU1,U1%:POKEU2,U2%:POKEU3,U3%-1:POKEU4,U4%:GOTO35
400 PRINT"[147]":POKEUT,UL%:POKEUY,5:POKEUX,5:POKE646,0
405 PRINT"            [201][206][211][212][210][213][195][212][201][207][206][211] "
406 PRINT"[151]   * [208]LEASE READ THIS TO THE STUDENT":GOSUB4500:FORT=1TO700:NEXT
407 PRINT"[144]  [212]HIS IS A GAME WHERE YOU COUNT THE      NUMBER OF SHAPES ";
408 PRINT"ON THE SCREEN"
409 PRINT"  AND THEN TYPE THAT NUMBER.
410 [153]"  (null)OU WILL BE GIVEN THREE CHANCES TO      TYPE THE CORRECT NUMBER.
415 PRINT"  [212]HERE WILL BE 10 SETS OF SHAPES TO      COUNT.
418 [153]"  (null)EMEMBER TO PRESS  (null)VAL(null)(null)(null)(null) WAIT AFTER
419 PRINT"  TYPING YOUR ANSWER. [212]HIS TELLS"
420 PRINT"  THE COMPUTER TO ACCEPT WHAT YOU"
425 PRINT"  HAVE TYPED."
430 GOSUB820
440 POKE53280,15:POKE53281,15:POKE646,4
445 PRINT"[147]  AND AWAY WE GO........"
450 GOSUB791:GOSUB4500:GOSUB790
455 GOTO1000
790 FORTM=1TO500:NEXT:RETURN
791 FORTM=1TO1000:NEXT:RETURN
792 FORTM=1TO2000:NEXT:RETURN
793 FORTM=1TO3000:NEXT:RETURN
795 FORTM=1TO5000:NEXT:RETURN
800 PRINT"[147]";:POKEUT,UU%:POKEUY,0:POKEUX,0:POKE646,3
801 PRINT"     A TPUG EDUCATIONAL PROGRAM
802 [153]"           FOR C64 COMPUTERS
803 PRINT"             GRADES K TO 1":GOSUB791
804 PRINT"                                        [146]";
805 PRINT"                                        [146]";
806 PRINT"                                        [146]";
807 PRINT"               COUNT TEN                [146]";
808 PRINT"                                        [146]";
809 PRINT"[159]                                        [146]";
810 PRINT"                                        [146]";
811 PRINT"                                        [146]":GOSUB791:GOSUB4300
812 PRINT"          INSTRUCTIONS?   Y/N"
813 GETR$:IFR$<>"Y"ANDR$<>"N"THEN813
814 IFR$="Y"THEN400
815 GOTO440
820 GOSUB791:GOSUB4500
823 POKEUN,0:PRINTLEFT$(UD$,24);"[144] [208]RESS [211][208][193][195][197][160][194][193][210] TO CONTINUE [146][155]"
825 GETUI$:IFUI$<>" "THEN825
830 RETURN
835 GOSUB791:GOSUB4500
837 POKEUN,0:PRINTLEFT$(UD$,24);"[153] PRESS SPACE BAR TO CONTINUE [146][155]"
840 GETUI$:IFUI$<>" "THEN840
845 RETURN
850 UP=UP+1:PRINT"[147]"LEFT$(UT$+UP$,21);RIGHT$(UP$+UG$+STR$(UP),18)
855 PRINT" --------------------------------------"
860 IFUH=0THENPRINTLEFT$(UD$,24);LEFT$(UP$,7);"ANSWER, THEN PRESS RETURN[146]
865 UH[178]0:[153]"":[142]
900 US[178]1024:U1[178]209:U2[178]210:U3[178]211:U4[178]214:UC[178]204:UB[178]2048:UX[178]53280:UD[178]2064
902 UT[178]53272:UU%[178]21:UL%[178]23:UP%[178]2151:UN[178]198:UY[178]53281:UU[178]2199:UE[178]2087
904 UC$[178][199](155):UV[178]1214:UF[178]196:UV[178]2238
905 UD$[178]"":UP$[178]"                                      "
907 UT$[178]" COUNT TEN"
909 [142]
910 [141]900:[153]"LOAD":[153]"CLOSE"
920 [137] 800
1000 [153]"LOAD"UC$;:[140]:[151]UY,6:[151]UX,6
1020 CC[178]0:CT[178]0:CY[178]0:CX[178]0
1030 UT$[178]" COUNT TEN":
1040 [151]UT,UL%:UP[178]0:UG$[178]"":UH[178]1:[153][163]12)"(null)OULD YOU LIKE:"
1050 [153][163]12)"0WAIT SIMPLE SHAPES
1055 PRINTTAB(18)"OR
1060 [153][163]12)"1WAIT COMPLEX SHAPES?"
1070 [153]"      ATNNSWER THEN PRESS  (null)VAL(null)(null)(null)(null) WAITONONONONONONONCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMDCMD";
1080 US$[178]"01":UL[178]1:[141]35:A5[178][197](UR$)
1090 RN[178][181](10[172][187](1))[170]1
1095 CT[178]CT[170]1:CY[178]0:CX[178]0:RQ[178]RQ[170]1
1100 [139]RN[178]1[176]RN[178]2[167]P[178]4
1110 [139]RN[178]3[176]RN[178]4[167]P[178]5
1120 [139]RN[178]5[176]RN[178]7[176]RN[178]8[167]P[178]3
1130 [139]RN[178]6[176]RN[178]9[176]RN[178]10[167]P[178]2
1140 X2[178]31:Y2[178]10:[139]RN[178]10[167]1160
1150 [137]1170
1160 X2[178]26:Y2[178]10:X3[178]33:Y3[178]10
1170 RS[178][181](P[172][187](1))[170]1
1180 [153]"LOAD":[151]UT,UU%:[153]"LOAD"
1185 [141]4180
1190 [129]I[178]1[164]RN
1193 RX[178][181](4[172][187](1))[170]1:X[178][171]2[170]RX[172]6
1195 RY[178][181](3[172][187](1))[170]1:Y[178]RY[172]6
1197 [129]GH[178]1[164]RN
1198 [139]CX(GH)[178]RX[175]CY(GH)[178]RY[167]1193
1199 [130]GH
1203 CX(I)[178]RX:CY(I)[178]RY
1219 [141]4170
1220 [145]D3[141]3400,3430
1230 [130]I
1240 CC[178]1
1250 [141]4500:[153]"    HOW MANY OBJECTS ARE SHOWN ?   CMDCMD";
1260 US$[178]"0123456789":UL[178]2:[141]35:RC[178][197](UR$)
1270 [139]RC[178]RN[167]1320
1272 [139]CC[179]3[167][141]4400:[137]1280
1274 [153][163]32)"NO,":[153][163]31)"IT IS":[141]4300:[141]4300:[137]1365
1280 [153][163]31)"DEFT R Y":[153][163]29)"A G A I N":[129]ZI[178]1[164]400:[130]ZI
1285 [153][163]31)"ONONONON     ":[153][163]29)"         ":CC[178]CC[170]1:[137]1250
1295 [139]CC[178]3[167][141]4400:[137] 1365
1300 [171]
1320 RR[178]RR[170]1:[141]4300:[153]""UP$
1321 [153]"(null)LENLENLENLENRIGHT$"
1322 [153]"LEFT$(null)   LEFT$
1324 PRINT"[213][195][195][195][203]  [194] [200]
1326 [153]"(null)PEEK      PEEK LEFT$
1328 PRINT"[202][198][198][198][198][164] [194] [200]
1330 [153]"TAB(PEEKMID$ASC(null)
1332 PRINT"   "
1334 PRINT"VERY GOOD"
1365 GOSUB4175
1370 ONRNGOSUB3760,3780,3810,3840,3870,3900,3930,3960,3990,3760,4020
1380 IFX3<>0THEN1420
1385 GOSUB835:IFCT<10THEN1090
1390 PRINT"[147]":POKEUT,UU%:POKE53280,0:POKE53281,0:POKE646,7
1395 PRINT"    YOU HAVE COMPLETED 10 QUESTIONS.
1400 [141]792
1402 [153]"LOAD"
1404 [153]"      I HOPE YOU HAD FUN COUNTING"
1406 [153]"      WITH ME, BECAUSE I HAD FUN":[153]"      HELPING YOU!"
1408 RP[178](RR[173]RQ)[172]100:[139] RP[179]60 [137]1414
1410 [139] RP[177][178]60 [175] RP[179][178]90 [137]1416
1412 [153]AS$;:[153]"              EXCELLENT WAIT":[141]835:[137]1450
1414 [141]4280:[153]AS$;:[153]"YOU NEED PRACTICEWAIT":[141]835:[137]1450
1416 [141]4280:[153]AS$;:[153]"VERY GOODWAIT":[141]835:[137]1450
1420 X2[178]X3:Y2[178]Y3:X3[178]0:RN[178]11:[137]1365
1450 [141]795:CT[178]0
1452 [153]"LOAD   DO YOU WANT TO PLAY AGAIN?  Y/N
1454 GETR$:IFR$<>"Y"ANDR$<>"N"THEN1454
1456 IFR$="Y"THEN RESTORE:GOTO800
1458 POKE631,13:POKE198,2
1460 PRINT"[147]   RETURNING TO MENU"
1462 LOAD"MENU",8
1464 RUN
1466 END
3390 REM D1 & D2 RANDOMLY PICK SIMPLE SHAPE
3400 IFA5=1GOTO3420
3410 OND1GOTO3450,3460,3470,3480,3490,3500,3510,3520,3530
3420 OND1GOTO3660,3670,3680,3690,3700,3710,3720,3730,3740
3430 OND2GOTO3540,3550,3560,3570,3580,3590,3600,3610,3620,3630
3440 REM SIMPLE SHAPES
3450 PRINT"[169]  [223][157][157][157][157]    [157][157][157][157]    [157][157][157][157][146][223]  [146][169]":RETURN
3460 PRINT"[169][223][157][157][157][169]  [223][157][157][157][157][146][223]  [146][169][157][157][157][223]I":RETURN
3470 PRINT"  [157][157][157]    [157][157][157][157]    [157][157][157]  [146]":RETURN
3480 PRINT" [223][169] [157][157][157][157][146][223]  [146][169][157][157][157][157][169][160][160][223][157][157][157][157] [146][169][223] [146]":RETURN
3490 PRINT"  [223][157][157][157]   [223][157][157][157][157]   [146][169][157][157][157][157]  [146][169]":RETURN
3500 PRINT"    [157][157][157][157]    [157][157][157][157][146][223]  [146][169][157][157][157][223][169]":RETURN
3510 PRINT"[169][160][160][157][157][157][157][169]   [157][157][157][157][146][223]   [157][157][157][146][223]  [146]":RETURN
3520 PRINT"[169][223][157][157][157][169]  [223][157][157][157][157]    [157][157][157][157]    [146]":RETURN
3530 PRINT"[169][223][157][157][157][169]  [223][157][157][157]  [157][157]  [146]":RETURN
3540 PRINT"[223][157][157][157]   [223][157][157][157][157]   [146][169][157][157][169]":RETURN
3550 PRINT"  [157][157]  [157][157][157][146][223]  [146][169][157][157][157][223][169]":RETURN
3560 PRINT"[169][157][157][169][160][160][160][157][157][157][157][146][223]   [146][157][157][157][223]":RETURN
3570 PRINT"  [157][157][157][157]    [157][157][157][157]    [157][157]  [146]":RETURN
3580 PRINT"  [157][157]  [157][157][157]    [157][157][157][157]    [146]":RETURN
3590 PRINT"  [157][157]    [157][157][157][157]    [157][157][157][157]  ":RETURN
3600 PRINT"    [157][157][157][157]    [157][157][157]  [157][157]  ":RETURN
3610 PRINT"  [157][157][157][157]    [157][157][157][157]    [157][157][157][157]  [146]":RETURN
3620 PRINT"    [157][157][157]  [157][157]  [157][157][157]    [146]":RETURN
3630 PRINT"[169]  [157][157][157][157][169]   [157][157][157][157]   [146][169][157][157][157][157]  [146][169]":RETURN
3640 PRINT"  [223][157][157][157]   [223][157][157][157][157][146][223]   [157][157][157][146][223]  [146]":RETURN
3650 REM COMPLEX SHAPES
3660 PRINT"  [157][157][157][172][187][157][157][188][190][157][157][157]  ":RETURN
3670 PRINT"[223][169][157][157][157][157] [223][169][160][157][157][157][157] [146][169][223] [157][157][157][157][146][169][223]":RETURN
3680 PRINT"[223]  [146][169][157][157][157][223][169][157][157][169][223][157][157][157][169]  [223]":RETURN
3690 PRINT"[169]  [223][157][157][157][157] [146][169][223] [157][157][157][157] [223][169] [157][157][157][157][146][223]  [146][169]":RETURN
3700 PRINT"[223][169][157][157][157][157][146][223][223][169][146][169][157][157][157][157][169][146][169][223][223][157][157][157][157][146][169][223]":RETURN
3710 PRINT"[223][223][169][146][169][157][157][157][223][169][157][157][169][223][157][157][157][169][146][169][223][223][146]":RETURN
3720 PRINT"[169][223][157][157][157][169][190][188][223][157][157][157][157][146][223][187][172][146][169][157][157][157][223][169]":RETURN
3730 PRINT"[169][223][157][157][157][169][146][190][188][223][146][157][157][157][157][223][187][172][169][157][157][157][223][169]":RETURN
3740 PRINT"  [157][157][157] [146][169][223] [157][157][157][157] [223][169] [157][157][157]  [146]":RETURN
3750 REM LARGE NUMBERS 6X12 MATRIX
3760 PRINT"[169] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] [157][157]   [146]"
3770 RETURN
3780 PRINT"[223][145][157] [145][157][169][146][169][145][157][169]   [223][157][146][223][223][157] [157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169][157][157][157][169][146][169]";
3790 PRINT"[157][157][157][169][146][169][157][157] [157] [157]      [146]"
3800 RETURN
3810 PRINT"[223][145][157] [145][157][169][146][169][145][157][169]  [223][223][157][157][146][223] [157] [157][157][169][146][169][157][157][169][157][157][169][223][157][157][146][223][223][223][157] ";
3820 PRINT"[157][146][169][157][157][169][146][157][169][157][157] [157][157] [157][157][146][223][145][157][223][146][157][157][223][145][157] [145][157][169][146]"
3830 RETURN
3840 PRINT" [157] [157] [157] [157] [157] [157] [157] [157] [157] [157] ";
3850 PRINT"[157][157][157][157][145][145][145][145][145][145][145][145][145] [157] [157] [157] [157]     "
3860 RETURN
3870 PRINT" [145][157] [157][157] [157][157] [157][157] [157][157] [157][157] [157] [157] [157] [157] [157] [157] [146][169][145][157][169]   [223][157] [157][157][146][223] ";
3880 PRINT"[157] [157] [157] [157][157][169][146][169][157][157] [157][157] [157][157] [157][157] [146][157][157][223][145][223][157][157] [145][157] [146]"
3890 RETURN
3900 PRINT"[169][157] [157][157][169][157][157][169] [146][169][157][157][169][157][157] [157][157][169][157][157][169] [146][169][157][157][169][157][157] [157][157][169][157]     [223][157][157][146][223]";
3910 PRINT" [157] [157] [157][157][169] [157][146][169][157][157] [157][157] [157][157] [157][157] [157][157][146][223][145][223][157][157] [145][157] [145][157] [145][157] [146][169]"
3920 RETURN
3930 PRINT" [145][157]      [157] [157][157][169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157] [157] [157] [157] [157]";
3940 PRINT" "
3950 RETURN
3960 PRINT"[169]  [223][157][146][223][223][157] [157] [157][146][169][157][157][169][157][146][169][157][157] [157] [223][157][146][223][223][157] [157] [157][146][169][157][157][169][157][146][169][157][157] [157][157] ";
3970 PRINT"[157][157][146][223][145][157][223][157][157][146][223][145][157] [145][157] [145][157][169][146][169][145][157][169] [145][157] [157][157][146][223][145][157][223][157][157][146][223][157][145] [145][157] [145][157][169][146][169][145][157][169][146]"
3980 RETURN
3990 PRINT"[169]    [223][157][157][146][223] [157] [157] [157] [157][157][169] [157][157] [157][157]  [157][157] [157][157] [157][157] [157][157][146][223][145][223][157][157] [157][145] [157][145] [157][145] [146][169]";
4000 PRINT"[169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157][169][157][157][169][157][157][169][146][169][157][157][169]"
4010 RETURN
4020 PRINT"[169]  [223][223][157][157][146][223] [157] [157] [157] [157] [157] [157] [157] [157][146][169][157][157][169][157][146][169][157][157] [157][157] [157][157][146][223]";
4030 PRINT"[145][157][223][157][157][146][223][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][157][160][145][146][169][157][157][169][146]"
4040 RETURN
4160 REM CURSOR POSITIONING ROUTINE
4170 PRINT"";:FORJ=1TOY:PRINT"";:NEXTJ:FORK=1TOX:PRINT"";:NEXTK:RETURN
4175 PRINT"";:FORO=1TOY2:PRINT"";:NEXTO:FORII=1TOX2:PRINT"";:NEXTII:RETURN
4180 REM CLEARS SCREEN.RANDOMISES D1,D2
4190 D1=0:D2=0:D3=1
4200 IFA5=0GOTO4240
4210 REM VALUES FOR COMPLEX SHAPES
4220 D1=INT(9*RND(1))+1:RETURN
4230 REM VALUES FOR SIMPLE SHAPES
4240 D1=INT(20*RND(1))+1
4250 IFD1>10THEND2=D1-10
4260 IFD1>10THEND3=2
4270 RETURN
4300 REM <YES> SOUND
4310 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
4320 POKE54296,15:POKE54277,42:POKE54278,250
4330 POKE54276,23:POKE54273,23:POKE54272,191
4340 FORTM=1TO100:NEXT:POKE54276,32:FORTM=1TO200:NEXT
4350 POKE54296,0:RETURN
4399 :
4400 REM <NO> SOUND
4410 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
4420 POKE54296,15:POKE54277,18:POKE54278,242
4430 POKE54276,33:POKE54273,4:POKE54272,48
4440 FORTM=1TO300:NEXT:POKE54276,32:FORTM=1TO400:NEXT
4450 POKE54296,0:RETURN
4499 :
4500 REM <BLIP> SOUND
4510 SS=54272:FORE=SSTOSS+28:POKEE,0:NEXT
4520 POKE54296,6:POKE54277,42:POKE54278,250
4530 POKE54276,23:POKE54273,23:POKE54272,191
4540 FORTM=1TO30:NEXT:POKE54276,32:FORTM=1TO50:NEXT
4550 POKE54296,0:RETURN
5000 REM DERIVED FROM COMMODORE ONTARIO EDUCATIONAL SOFTWARE PROJECT 1983
5010 REM 64 SHRUNK - ED VANDERZEEUW 1989
5020 REM UPDATED -BILL CUMBERLAND 1990